{$CLEO .cs}
THREAD 'SPC'



REPEAT
WAIT 0
Actor.StorePos($PLAYER_ACTOR, 21@, 22@, 23@)
if 0AE1: 29@ = random_actor_near_point 21@ 22@ 23@ in_radius 10.0 find_next 1 pass_deads 0 //IF and SET                
then
    if not 29@ == -1
    then
        IF 056D:   actor 29@ defined
        then
            if 051A:   actor 29@ damaged_by_actor $PLAYER_ACTOR
            then
                if or 
                   02D8:   actor $PLAYER_ACTOR current_weapon == 0
                   02D8:   actor $PLAYER_ACTOR current_weapon == 1  
                then
                    04C4: store_coords_to 4@ 5@ 6@ from_actor $PLAYER_ACTOR with_offset 0.0 7.0 0.0                      
                    04C4: store_coords_to 7@ 8@ 9@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0                      
                    0063: 4@ -= 7@ // (float)                                                                            
                    0063: 5@ -= 8@ // (float)                                                                            
                    0063: 6@ -= 9@ // (float)                                                                            
                    4@ *= 40.0                                                                                           
                    5@ *= 40.0                                                                                           
                    Actor.StorePos(29@, 7@, 8@, 9@)                                                                      
                    08C7: put_actor 29@ at 7@ 8@ 9@ dont_warp_gang                                                       
                    083C: set_actor 29@ velocity_in_direction_XYZ 4@ 5@ 6@                                               
                    054E: clear_actor 29@ damage                                                                         
                    //Actor.Health(29@) = 5                                                                              
                    //Actor.RemoveReferences(29@)
                end
            end
        end
    end
end                                                                        
UNTIL FALSE